RUP I DENT 

♦ .'STRING AND 



3/7/68 
FLOATING POINT SYSPOPS 



SWCI 


OPD 


15700000B* 1* 1 


SCIO 


OPD 


16100000B* \y 1 


SBRS 


OPD 


I7300000B* '1* 1 


SSKSE 


OPD 


16300000B* 1, 1 


UGCI 


MACRO 


A ',..■-• 


: 


EAX 


AC1) 




BRM 


GCU 




EN DM 





SYSPOPS WITH BIT REMOVED ... 
"... FOR USE BY SYSTEM MODE ROUTINES 



*BRS'3: A KLUGE TO INTERFACE TWIXT THE STRING PACKAGE AND 
*THE FILE HANDLING.. TAKES A STRING POINTER IN A-.B, AND RETURNS 
*THE FIRST 9 CHARACTERS OF THE STRING IN . A-B-X* LEFT JUSTIFIED 
*AND FILLED OUT WITH BLANKS' IF THERE ARE LESS THAN 9 CHARACTERS 



SSPFDC 
SPFDC3 
SPFDC5 



STA SPFDC1* STB SPFDC2J ADD = 9js SK G SPFDC2* STA SPFDC2S LDX =-3 

CLAj; STA SSRj-25 STX S.PFDC4S LDX =-3 " • v 

STX SPFDC65 UGCI SPFDC15 LDA = 200BJ. LDB =200B 

XMA SPFDC2J SKG SPFDClJS CLBl XMA SPFDC2 . , 

COPY AX*BX*XA* COPY AX*XA*Bi EOR =200B5 LDX SPFDC4 



SPFDC1 

SPFDC2 

. SPFDC4 

SPFDC.6 



XMA 
LDX 
LDX 
ZRO 
ZRO 
ZRO 
ZRO 



SSRj-21 .LJSH 85. ADM-'SSR*2j 
SPFDC4.I BRX SPFDC35 LDA 
SS03J BRU EPOPX 



LDX SPFDC6I BRX 

SS01.; LDB SS02 



SPFDC5 



UTILITY BRS'S (33*34*35*37) 



^c 


B.RS 33 




SGETSTR STB 


GSIN1 


■ ■ ■ ■ 


STX 


GSIN3 




ETR 


=400377778 




CAX 


' 




LDB 


1*6 




SKA 


=40000000B 




STB 


0* 6 




EAX 


0* 6 




STX 


GSIN2 




SCIO ; 


GSIN3 


GSIN4 


SWCI* 


GSI.N2 




SCIO 


GSIN3 




SK E 


GSINl 




BRU 


GSIN4 



L DA 


0* 6 


LtiB, ' 


.1* 6 ' 


LDX 


' GSIN3 


BRU 


EPOPX 



^k 


.BRS 34 




SOUTH SG STB . 


STRO 3,-. 




MUL 


= 3. 




LSH 


23 




SUB 


= 1 




S.KN 


STRO 3 




BRU : -'. 


TYM2 , - 




LD8 _ 


=137 7 7 7B 




BRU 


STRO 6 


TYM2 


CAB 






ADD 


' STR03 




XAB 






BRU 


STRO 6 


* 


BRS 35 




SOUTSTR ADD 


= 




STX 


STR03 


STRO 6 


ADD 


= 




STX 


STROl 




ETR 


=1777778 




•STA 


STR02 




CBA 






ETR 


=177777B 




STA 


STR02T 


STR0.4 


UGCI 


SXRO'2 




BRU 


STR08 




SKN 


STR03 




BRU 


STRO 7 




SKE 


= 176, 




BRU 


STRO 5 


STR08 


LDX 


STRO 1 




BRU 


EPOPX 


STR05 - 


SKE 


= 4 




BRU 


STRO 7 




LDA 


= 155B 


,- 


SCIO 


STROl 




LDA 


= 152B 


STR0 7 


SCIO 


STRO 1 




BRU 


STR04 



NOT SPECIAL MODE 



CLEAR X\0. 
CLEAR X\0 



BRS 37 



i f - i 




SGSLOOK STX' 


WR13 


ABC 




STA 


WR7 


; LCY 


12 


SKG 


= 


LDA 


UCOUT 


STA 


WR1 


CLA 




LCY 


12 


STA 


WR2 


LDA 


SS02 


ETR 


ADMSK 


MR 6 


X4 


STA 


WR3 


■ CAX 




LDA 


1*6 


SUB 


%> 6 . 


STA 


WR5'' 


LDX 


WR13 


. LDA 


0*6 


LDB 


D6 


STB 


. WR6 


CAX 




BRU 


*+3 


Z37B19 EAX 


,-.3*2 


CXA 




SK E 


WR6 


BRU 


Z37B18 


SKN 


WR7 


BRU 


Z37B14 . 


LDX 


WR 1 


LDA 


\, 6 


ETR 


=1 77777B 


CAB 




LDA 


WR9 •" 


STA 


WR 1 1 


STB 


WR12 ' 


Z37B20 UGC'I 


WR 1 1 


BRU ' 


Z37B15 


>SCIO 


WR 1 


BRU 


Z37B20 


Z37B15 LDX 


WR10 


LDB 


2*6. 


CXA 




MIN 


SBRSRT 


BRU 


Z37B22' , 


Z37B14 LDX 


' WR3 


LDA 


0*6 



PICK UP HASH TABLE BOUNDS 



ND. OFH 



NO 



NO 



XI T 



EXIT VIA HERE IF NO MATCH FOUND 



LDB 


1*6 


Z37B22 LDX 


WR13 


BRU 


EPOPX 


Z37B16 CLA 




^STA 


WR 7 . 


Z37B18 LDA 


0*6 


SKG 


= 


SKG 


= -2 


BRU 


*+2 


BRU. 


Z3 7B19 


LDA 


1*6 


SUB 


0* 6 


ETR ' 


=177777B 


ADD 


= 1 


. SK G ' 


WR 5 


BRU 


Z37B19 


LDA 


0* 6 


ETR 


=177777B 


iCAB 




ADD 


WR5 


XAB - 


• 


SSKSE* 


WR3 


BRU 


Z37B19 


SKN 


WR7 ' 


BRU 


Z3 7B1-7 


SCIO 


WR2 


swci* 


WR3 ' . ■ . 


.MIN 


WR9 


M I N 


WR5 


LDA 


WRS 


liDB 


WR9 


, SSKSE* 


wr3 ; 


BRU 


Z37B16 


BRU 


Z37B18 


Z37B17 STA 


_WR8\ 


STB 


WR9 


STX 


. WR 1 


LDA 


=40000000B 


STA 


WR7 


BRU 


Z37B19 



ENDF 



HASH TABLE ENTRY EMPTY ? ' 

YES* TRY NEXT ONE . ; 

NO* IS HASHT STR. SHORTER THAN GIVEN STRINS 



YES* MATCH M.MPO-SS 
YES 



COMPARE PROPER INI TI AL"PARTS 
NO .MATCH 



YES 
NO* APPEND CHARS/UNTIL ONE . ELIMINATED 



PREVIOUS MATCH ELIMINATED 



RESET 'FIRST MATCH*. 



*930 STRING PROCESSING SYSTEM. MANUAL IS DOCUMENT NUMBER ■ 30. 1 0. 20 



*WRITE CHARACTER AND INCREMENT. THE POP ADDRESSES A STRING POINTER* AND 
*THE CHARACTER IN "A -IS WRITTEN ONTO THE END OF THE SPECIFIED STRING. 
*THE SECOND POINTER I S ' INCREASED BY ONE* SO THAT THE POINTER NOW - ■ ' 
^POINTS TO THE NEW STRING. X AND A ARE PRESERVED* B DESTROYED. 

WRITTEN 

C ■ ■' ■ . ■ 

OF POP '• ,- ■■■ . ' 
OF STRING POINTER 

IS IDENTICAL FROM 



WCI 


POPD 
ETR 


15700000B* 1* 1*0* 1 
.=3778 




. " STA 


WCH1. SAVE CHARACTER TO BE 




STB 


. WCIB '"■■■'.. 




STX 


WCH2 ..-. SAVE X REGISTER . 




EAX* 


' ■' ■■ . ■-• GET EFFECTIVE ADDRESS 




' NIN 


1*6 ^ • 'INCREMENT SECOND. WORD 




LDA 


1*6 AND PICK IT UP. . 




BRU 


WCH5 GO TO WCH CODE* WHICH 


♦WRITE CHAR ACT 


ER AND DECREMENTS DECR.- 1ST.PTR. 


*AND 


WRITE CHAR. ON BEGINNING OF STRING , / .' 


WCD 


POPD 


13500000B* 1* 1*0* 1 ..; ' -i 




ETR . 


= 3778 . , '. 




. STA 


WCH1. . 




' STB. 


WCIB .'■.•■' 




STX 


WCH8 ' ~ r '. 




EAX* 


" '" . ■■■-... , 




LDA 0* 6 


.5 SKR 0* 65 NOP 




BRU 


WCH5 


-?* 




- THIS POINT'ON. 


*STORE POINTER 


. THE A AND B REGISTERS ARE STORED IN- 


*BY THE POP AND THE NEXT WORD 


sip'.: 


POPD 


167000008*1*1*0*1 




STX 


STP1 SAVE INDEX REGISTER 




■.EAX* 


.'■■'.• GET. EFFECTIVE ADDRESS 




STA 


0*6 DO THE 




STB 


1*6 STORE . ■ • ' •■'•"'■ 


y ■ 


LDX 


STP1 ' RESTORE X 




BRR 


' " ■ . RETURN 


*L0AD POINTER. 


THE A AND B REGISTERS ARE LOADED FROM 


*ANF 


THE NEXT 


WORD. . 


LDP 


POPD 


16 600000B* 1* 1*0* 1 




STX 


' STP1 . 




.. EAX* 


' : ~ i ■ . ' . . ' . ' 




LDA 


0* 6 --.-'■" 




LDB •• 


1*6 '.-■ 




LDX 


STP1 




BRR 


' • 



THE WORD' ADDRESSED 



THE WORD -ADDRESSED BE 



* GET CHARACTER AMD DECREMENT / , 

* TRANSFER CHAR. -'FROM OPERAND STRING . TO -A REGISTER. DECREMENT END-STR. 

GCD POPD 137000"00B* \, \* ■%, I ' ) . • 



POPD 


13 7000"00B* \> 1 


STB 


WCIB 


STX 


GCI1 


EAX* 





LDA' 


' b6 ' 


SK G 


0* 6 



BRU .. GCI3 
SKR . 1* 6 
BRU GCI8 

* GET CHARACTER AND INCREMENT. THE POP ADDRESSES A. STRING POINTER. IF THE 

* FIRST WORD OF THE POINTER IS+ = OR='TO THE SECOND* IT RETURNS. WITHOUT 

* SKIPPING. OTHERWISE* I T SK IPS AND RETURNS WITH THE FIRST 

* CHARACTER OF THE STRING IN A AFTER INCRIMENTING THE FIRST , POINTER . 

* BY 1. X IS PRESERVED* B DESTROYED. ■ • . . >"' 
GCI . P.OPD 165000006* 1* 1*0*1 , ' 

STB ..WCI'B. '- 

STX . GC.I1 . SAVE X. .". , ;. ; • '. ' 

EAX*. . '■ YES. DON'T HAVE TO WORRY A£0 LIT WHETHER 

* ' ■" ADDRESS IS RELABLED. GET IT. 
GCI9 MIN . 0*6' ' . INCREMENT POINTER .■■.'".. 

LDA. 0* 6 ' AND GET I T '. ' 

SKG ' 1*6. IS STRING. NULL < 1 ST PO INTER + = = END) , 

BRU GCI8 NO' '.'. - '■•■'■' '■-: 

SKR 0*6 .' .. . YES.. RESTORE POINTER • • . . • 

NOP • ' ALLOW FOR POSSIBLE SKIP '. ;'■ ■ . '. . 

GCI 3 LDX GCIT RESTORE X 

BRR 0. "■ . AND RETURN WITHOUT SKIPPING ■■■ 

GCI 8' MIN ■'. . INCREMENT RETURN ADDRESS FOR SKIP ON RETURN 

MUL. =125252538 • ^ MULTIPLY ■ CHARACTER ADDRESS '■ BY ,1/3. THIS - 

'* . i FAVFS WORD ADDRESS IN; A* CHARACTER 

* ADDRESS IN TOP TWO 'BITS OF B. 
' : ' . RCH 412B . ' CAX + BAG. - WORD ADDRESS TO X 

LCY 2 MOVE CHARACTER' ADDRESS TO BOTTOM OF B . 

, LDA 0, 6 ; . ' GET WORD 

RCH , 2 4B v CBX + CAB 

EXU GCI2*2 .' SHIFT TO GET CHARACTER ' IN BOTTOM OF A 

ETR = 377B : , REMOVE SUPERFLUOUS BITS , 

LDB WCIB 

LDX GCI1 RESTORE X , ' ' 

'BRR AND RETURN ' 

GCI2 LCY 8 . SHIFT TABLE FOR EXTRACTING A CHARACTER 

LCY 16 FROM A WORD . ° 

■ CBA - . ■ .-, " ... v . 
BRU TRAP .' ILLEGAL STRING POINTER 

* GCI WITH POINTER -IN T.S. BLOCK 

GCU ZRO ■ -,■ . , . /-■. 

LDA GCU i 

■ STA-. x • : ' • ■ '■■;.' ., 
MIN 0*2 - ' .: . . ■ . 

LDA 0*2 .'■■'.: ■.-■■■- 

' ; SKG . 1*2 

BRU GCI 8 ' .'■-'■..'■•■ 

SKR 0*2 . ... 

NOP '■■■.■ 

' BRR GCU 
♦WRITE CHARACTER ON THE END OF STRING STORAGE. THIS IS THE ONLY POP WHICH 

* CAN CAUSE A GARBAGE COLLECTION. IT EXPECTS THE ADDRESS OF THE 

* PARAMETER TABLE IN X AND THE CHARACTER TO BE WRITTEN IN A. AND 

* RESTORES BOTH. B IS DESTROYED. -; ' 



WCH. 



WCH5 



POPD 
ETR 

STA - 

STB 

STX 

EAX* 
MIN 

LDA 
SHE 

BRU 
LDA 
LDB 
BRU. 
M UL 

CAX 
LCY , 
ETR ; 
LDB 
XX A 
LCY 

ETR 
M'RG 
RCY 



16400000B; 

= 3 77B 

WCH1 

WCIB 

WCH2 



0*6 

0*6 
1*6 

WCH 5 _ 
WCH1 


2*6 

= 1.2 52 52538 

SAVE 

5- 

= 30B 

0* 6 . \ 

SHIFT' 

8*2 

=777774006 
■WCH.l 
8*2 
RESTORE 

0*6. 
WCH 1 
WCIB 
WCH2 



1* 1*0* 1 



SAVE CHARACTER" • 

AND INDEX (ADDRESS OF PARAMETER TABLE) 

INCREMENT CURRENT LAST CHARACTER TO GET 

• CHARACTER ADDRESS FOR THE NEXT CHARACTER 
GET THE ADDRESS TO A 

IS IT EQUAL TO LAST ADDRESS IN STRING 
STORAGESS 



\ 



CAX 
STB 
LDA 
LDB 
LDX 
BRR 
*SKI'P ON STRING- EQUAL. TH 

* AB' AND IN THE TWO 
*■ •■ EXACTLY IDENTICAL 

* PRESERVED. THIS PO 

* ''■' RETURNING WITHOUT 
+ .■ .-. ARE* IT CALLS SKCO 



COMPUTE WORD AND 

SEE GCI CODE 
WO : RD ADDRESS ' 
CHARACTER ADDRESS SHIFTED 
REMOVE EXTRANEOUS BITS 
PICK UP WORD 
.COUNT', TO X 
SHIFT IT TO PUT "CHARACTER 

AT BOTTOM 
MASK OUT THIS CHARACTER 
AND INSERT. THE NEW ONE 
SHIFT WORD BACK 
WORD ADDRESS 
STORE WORD 
RESTORE A AND B 



CHARACTER ADDRESSES 



3 IN AC 



TO BE ALTERED 



SKSE 



POPD 

STA 

STB 

STA 

STB 

STX 

SUB 

STA 

EAX* 

LDA 

SUB 

SKE 

BRU 

BRU 

LDX 



-16300000B; 
SK S 1 
SKS1+1 
SKS5 
SKS5+1 
SK S2 
SKS1+1 . 
SKS6 

■'■■.. 
0* 6 
1*6 
SKS6 
*+2 ' 
SK SE2 
SK S2 



. AND X 

'. ■ . " AND RETURN ; / 

'IS POP COMPARES THE STRINGS WITH POINTERS IN 
WORDS ADDRESSED BY THE POP. IT IS 
TO THE MACHINE COMMAND SKE.\ ALL REGISTERS ARE 
P CHECKS FOR EQUAL LENGTH STRINGS FIRST 
A SKIP IF THE STRINGS, ARE NOT EQUAL. IF THEY 

TO FIND OUT ABOUT EQUALITY OF TH'IER CONTENTS 
1*1*0* 1 



COPIES 
STRING 



POINTER 



LENGTH 

OF SECOND 



SAVE TWO 

OF FIRST 

SAVE X 

COMPUTE 

AND SAVE 

GET. ADDRESS 

COMPUTE 

ITS LENGTH 

AND COMPARE WITH FIRST 

NOT EQUAL ' 

EQUAL ' ' . 

NOT EQUAL. RESTORE X* 



STRING POINTER 



LDA SKS5 A AND 

L.DB .. SKS5+1 B . 

BRR AND RETURN WITHOUT SKIPPING ' ' 

SKSE2 LDB 1*6 ... LENGTH EQUAL. PICK UP SECOND : 

LDA . 0,6 STRING POINTER 

LDX SKS2 ' AND ORIGINAL X 

BRM SKCO COMPARE STRING IN AB WITH THE ONE IN SKS1 

BRU . " *+2 ; §AB LESS 

MIN ' .'■ EQUAL. INCREMENT RETURN ADDRESS FOR SKIP 

SKSE1 LDA SKS5 GREATER. RESTORE A 

LDB SKS5+1 . ■ • AND B ' 

BRR' AND RETURN V . 
*SKIP ON STRING GREATER. THIS POP IS TO' SKG AS SKSE IS TO SKE. IT CALLS 

* SKCO IMMEDIATELY WITHOUT COMPUTING LENGTHS \ ' ( : 
SKSG POPD 16200000B* 1*1*0* 1 ■ ' - , , . ' ,, 

ST A SKS1 ; ■ "■' SAVE 

-STB SKS1 + 1 - TWO COPIES 
STA . SKS5 '.■"■' OF FIRST STRING. .' ' ■'. 

STB ■'. SKS5+T , '■.'..''■'.'■• 

STX SKS6 / ' ' SAVE X . . . . " , '. ' ■ . 

EAX* ; GET ' 

LDA- .0,6- SECOND STRING 

LDB 1*6. POINTER 

LDX SKS6 ' ' RESTORE X 

BRM SKCO , ' DO COMPARISON 

MIN 'SECOND STRING LESS* I.E. FI RST GREATERC $. ) 

* ■ . INCREMENT RETURN ADDRESS FOR- SKIP 

NOP ' . EQUAL ,'■■'' 

LDA ' SKS5 FIRST LESS. RESTORE A 

,LDB SKS5+1 AND B 

BRR . AND RETURN . ■ 

*THIS ROUTINE COMPARES THE STRINGS IN AB (FIRST STRING) AND IN SKS1 

* (SECOND STRING). IT RETURNS WITHOUT SKIPPING IF THE FIRST IS' 

* LESS* SKIPS ONCE IF THEY ARE EQUAL* AND. SK IPS TWICE IF THE FIRST 

* IS GREATFR. NOTE THAT SEVERAL OF THE NECESSARY GCI'S ARE WRITTEN 

* OUT INSTEAD OF BEING CALLS ON THE POP. 

SKCO ■ zR° 

STA SKS4- SAVE FIRST 

STB SKS4+1 - STRING -.POINTER' 

STX SKS7 AND X > ' 

SKCOl- MIN SKS1 . BEGIN LOOP. GET A CHARACTER 

LDA SKS1 . FROM SECOND STRING ' , . 

SKG SKS1 + 1 •'.' (IS IT NULLSS 

..BRU- SKC04 NO 

SKC02 MIN SKCO -' YES.) FIRST STRING CANNOT BE LESS* SO 

* ' INCREMENT RETURN ADDRESS. . ■' /. 
MIN .. SKS4 ■ IS FIRST STRING NULL 

LDA SKS4. ' - • ,- ' \ 
SKG SKS4+1 

MIN SKCO NO.- THEREFORE IT IS GREATER • 

BRU SKCO 5 RETURN 

.SKCO 4 MUL = 1-252 5253B SECOND STRING NOT NULL. GET CHARACTER 

RCH . 401B . " ' AS ■' 

' LRSH 22 ' IN '■ .'■ ■•: : . ■■■ 



LDA . %> 6 " GC.i 

RCH „ 248 CODE 

EXU. GCI2*2" ABOVE 

ETR =377'B 
. STA SKS3 • , GOT IT 
MIN SKS4 TRY TO GET CHARACTER 

LDA SKS4 FROM FIRST STRING 

SKG SKS4+1 IS IT NULLSS 

BRU *+2 'NO 

BRU SKC05 YES SO IT MUST BE LESS. RETURN' WITHOUT '' ; 

* .. ' ' . • SKIPPING 

MUL =12525253B . NOT NULL. GET •' / 

RCH 40 IB ' CHARACTER 

LRSH 22 AS : . 

LDA 0,6 • . IN , 

RCH . 24B GCI 

EXU GCI2,2 CODE 

ETR . . =3?7B .' ABOVE 

SHE . ,SKS3 ' AND COMPARE' WITH CHARACTER OF 2ND STRING 

, BRU SKC03 NOT UAL 

'BRU SKCOl , ' EQUAL. LOOP 

SKC03 SKG SKS3 , '■.'.'■ COMPARE FURTHER ' - ' ,'..-'. 

BRU SKC05 / LESS. RETURN WITOUT SKIPPING 

MIN' SKCO .'. ' GREATER SKIP . . " 

MIN SKCO TWICE ..'..'■ .. " - 

SKC05 LDX SKST RETURN POINT. RESTORE X 

BRR . ''SKCO AND RETUR ' 

* THIS ROUTINE* CALLED WITH BRS-5* SEARCHES A HASH -TABLE FOR AN 

* APPROPRIATE ENTRY FOR THE STRING IN AB. IT SKIPS IF. THE STRING 

* IS ALREADY IN THE TABLE. OTHERWISE IT .SAVES THE INDEX OF THE 
*•■ PARAMETER TABLE AND DOES NOT SKIP. X IS PRESERVED.* A AND B, ARE ■ 

* PRESERVED IF THERE IS NO SKI P, ' BUT B -I S THE INDEX IN THE HASH 

* TABLE AND" A THE VALUE (THIRD WORD) IF A MATCHING ENTRY IS FOUND 
IF -1 ■ 

S.SSCH STA SCH1 PUT STRING 

POINTER AWAY 

(TWO COPIES) '■'.'■ • ■' ■ 



LENGTH OF STRING 
AND SAVE IT 

" COMPUTE HASH TABLE INDEX. 
CAX + CLB 
.. FIGURE OUT MASKS FOR FIRST 3 AND LAST 3 
CHARACTERS . ■ ' ' , 

IF STRING IS LESS THAN 3 CHARACTERS LONG 
NOT LESS. THE MASK 
IS ALL 
ONES. 

SCH12 LDA SCH14..2 LESS. GET THE FIRST !' . - 

CHARACTERS MASK . - 

. AND THE LAST . 

CHARACTER'S MASK / - .... 



STA 


SCH1 


STB 


SCHl-fcl. 


STA 


SCH5 


STB 


SCH5+1 ■ 


CBA 




SUB 


■,SCH5 


STA 


SCH9-- ' 


RCH 


• 402B 


SK G 


= 3 


BRU 


SCH12 


LDA 


=7 77 77777B 


STA 


SCH10 


STA 


SCH1 1 


BRU 


SCH13 


LDA 


SCH14,2 


STA 


SCH10 


LDA 


SCH15J..2 


STA 


SCHl'l 



SCH13 



SCH 50 



CX A 


RECOVER 


LSH 


3 


ST A ■- 


SCH4 \ 


LDA, 


. SCH5 


ADD 


= 1 ^ 


MUL 


=125252 538 


RCH 


40 IB 


LRSH 


22 


LDA . 


0* 6 • 


LDX 


; b6 


XX B 


GET 


EXIT 


.SCH 16* 2 


ETR . 


SCH 10 .' 


LRSH 


12 


ADM 


SCH4 


CLA 


HALVES 


LSH 


- 12 


ADM 


SCH 4 


LDA 


SCH 5*1'. 


MUL '. 


=125252538 


RGH 


40 IB 


LRSH 


22 


LDA '. 


0* 6 '■ — 


LDX 


\ -1*6 


XX B . 


THREE ■ '•' i 


EXU 


SCH17*2 


ETR 


. SCH1 1 . 


LRSH 


. 12 


ADM 


SCH 4 . 


CLA 




LSH 


12 ■■"■■■ 


ADM 


SCH 4/. 


LDX 


SS03 ■ 


LDA . 


.. 1*6 - . 


SUB 


0* 6 


XMA 


SCH 4. 


LRSH 


23. 


DIV 


SCH 4 


CLA 




LSH 


1 ' .. 


DIV 


'.: =3 


MUL 


=3 ■ ■ . 


LSH 


23 


ADD 


. 0* 6 


CAX 




STA 


S.CH20 


LDA 


= - 1 


STA 


„ ; 'SCH52 


LDA . 


0* 6 



LENGTH 

MULTIPLY BY 8 . ■ ' . ■ 

AND USE IT TO .START THE. HASH CODE 



COMPUTE WORD ADDRESS FOR FIRST . CHARACTER 

OF STRING 
CAX + CLA. WORD ADDRESS TO X 
CHARACTER ADDRESS TO B ', ' 

GET FIRST WORD OF STRING.- 

.SECO.ND WORD ■. ''.'.'■•' , , 

SHIFT SO THAT FIRST 3 CHARACTERS ARE IN A 
GOT FIRST 3 CHARACTERS 

. FOLD THIS , ' ' 
WORD IN HALF * ADDING THE ■ , , 

TO THE HASH ■■ ,-' ■ '■.''- ( ■ ■ . 
CODE BEING ACCUMULATED 

REPEAT '..."•..■ . . ' 

THE ' .. ''. : 

above - : : , , 

tor '.' " ■.;■■■■ . • • 

the ■ , .■■.■:.'. : : ;'■■.' 

LAST "■•■.'■ ' ••"'-. ,. ■ ; ■ 

CHARACTERS •' ''•■■; 

~OF ■.. v '.■ ;..-■■' ■ ^ " ■' 

THE.. - ,. .■ - ■■ ; . ■■■■■.■ ■' . 

STRING 



CXB 



SAVE 



RECOVER ADDRESS OF CONTROL TABLE 

COMPUTE LENGTH " 

OF. HASH TABLE 

AND GET ■''.-, 

HASH CODE 

MOD ■■'■■'.. - 

THIS LENGTH* 

AND AN ■ ; - 

EVEN MULTIPLE 

O/F 3 ' " 

TURN IT INTO A HASH TABLE ADDRESS 



SET. THE 'DID WE' PASS VER A - 1 C DELETED) 

ENTRY' FLAG • ' 

TO .'NO '9'"' 
BEGIN LOOP TO SCAN HASH T.ABLE9 NOTE 

• THAT THE SCAN GOES BACKWARDS AND IS 

; CYCLIC . 

INDEX' '■'■'■■■''■ '. '• ' .' 



SCH18 



* 



SCH8 



SCH7A 
SCH7 



LDX 


SS03 ' 


SKE 


= -1 


BRU 


. *+2 


BRU 


S.CH5! 


SKE 


'■ =0 


BRU 


SCH8 


STB 


2., a 


LDA 


SCH52 


SKN 


SCH52 


STA 


2,6 



LDA 
LDB . 
BRU 

ETR 
STA 
CBX • 
L'DA 

ETR 
STA 
SUB 
SKE 

BRU 
LDA 
LDB 
BRM 
BRU 
BRU 
BRU 
M I N 
CXA 
ETR 
GAB 
LDA 
LDX 
BRU 
CBX 
CXA 

LDX 

ETR 
SKE 

BRU 
LDA 

SUB 

CAX 
SKE 
BRU 



SCH1 

SCH1+1 

XPOP 

=1777778 
SKS1 

1*6 

=177777B 
SK S 1 + 1 
SKS1 
SCH9 

SCH7 

SCH1 

SCH1+1 

SKCO 

SCH7 

*+2 • 

SCH7 



PUT 

=77777B 

B 

2*6 

SS03 

XPOP 

ENTRY 



■SS03 


=777777B 


%> 6 ' 


* + 2 


1,6 


= 3 


SCH20 . 


SCH50 



IS THIS A -1 CDELEATED) ENTRY 
NO 

YES .-■' ■ ■■■.■' ■•'.;■.' 

NO. IS IT EMPTY / 

NO. ."•''■■'■ ; . ; 

DID- WE PASS A. -1. ENTRY , • 

BEFORE FINDING THIS ENTRY 

YES. LEAVE THE INDEX OF THE ' '. ■ . ' ■' ■ 

-1 ENTRY AS THE EMPTY SLOT. SINCE! 
' THE NEAREST AVAILABLE SLOT TO TH0 
:ED ADDRESS FOR THE STRING 
RESTORE ; 
A AN D B 
AND. EXIT THROUGH A SYSTEM ROUTINE, WHICH 

CHECKS FOR TIME OVERFLOW. ' . 
ENTRY NOT EMPTY. MASK OUT TOP 8 BITS .. 
AND STORE FIRST WORD OF ITS STRING POINTER 

DO THE SAME . ., .' , , 

FOR THE ... . ■■ ■ 

SECOND WORD ' - 

COMPUTE LENGTH. , . '■ ■ 

DOES IT MATCH LENGTH OF STRING BEING ■ '- - 

SEARCHED FOR ■ 
NO. GO ON TO NEXT ENTRY 
YES 

CALL SKCO 

FOR COMPARISON OF STRINGS 
NO. MATCH ( '■'..■' 

MATCH ' 

NO MATCH ' ' 

AND INCREMENT FOR SKIP 
INDEX ' ■■ ■- ■ 

INTO . 

AND VALUE INTO A 

RESTORE X ' .. ■ . 

AND EXIT 

DOES NOT MATCH.. GO ON TO NEXT ONE. 

INDEX OF CURRENT ENTRY TO A 
GET ADDRESS OF -CONTROL TABLE 

HAVE, WE REACHED THE BEGINNING OF THE 
TABLE IN OUR BACK WARDS. SCAN 

NO '■'•.- 

YES. CYCLE TO END 

MOVE DOWN TO- THE NEXT ENTRY CEACH ' 
ENTRY IS 3 WORDS) 

HAVE WE MADE A FULL CIRCLE 

AND LOOP ■■'■'■'■ 





LDX 


SS03 




LDB 


= -1 




BRU ' 


SCH18 


SCH51 


SKN 


SCH52 




' BRU 


SCH7A 




STB 


SCH52. 




BRU 


SCH7A 


SCHl'4 


DATA 


0*776000-00 


SCH15 


DATA 


0*377B* 177 


5jS " • . 

SCH16 


NOP 





^ 


LCY 


8 




LCY 


16 


SCH17 


RCY 


16 . 




RCY 


. 8 




. NOP 





* BRS 


6 INSERTS THE MI SSI 


SSSIN 


.LDX 


' SS03 \ 




LDA 


2*6 




SKA 


=40000000B 




BRU 


TRAP .. 




CAX 


NO. - 




LDA 


SS01 




STA 


.0* 6 




STB 


1*6 




CXB 


; 




LDA 


2*6 




LDX 


SS03 ■ 




BRU 


■XPO.P. 


* 


EN OF. 




STP1 


ZRO 





GCI1 


ZRO 





GCI7 


'ZRO 


|0 


WCH1 


: ZRO 


■ ■ . . 


WCH 2 


ZRO 





WGIB 


ZRO 





SKS1 


BSS 


2 


SKS2. 


ZRO 





SK S3 


ZRO 


.0 


SKS4 


. BSS 


2 ' 


SKS5 


BSS/ 


2 


SKS6 


ZRO 


■■■■■■ 


SKS7 


ZRO 


. 


SCH1 


BSS , 


2. 


S.CH 5 


BSS 


2\ 


SCH4 


ZRO 





SCH9 


ZRO 





SCH10 


ZRO 





SCH11 


ZRO 


■ 



' GIVE UP .:■■■'. 

FOUND A -1 ENTRY. IS THE FIRST ONE 
" NO. DO NOTHING , ' • ■. ' 

YES. SET FLAG POSITIVE ADD TO ADDRESS OF 
' ENTRY FOUND 

0*776000008* 77777400B MASKS. FOR FIRST 3- CHARACTERS OF STR.M 

NOT 3 CHARACTERS LONG ~. 
0*377B* 177777B MASKS FOR LAST 3 CHARACTERS IF STRING IS 

NOT 3 CHARACTERS LONG 
SHIFT INSTRUCTIONS TO GET FIRST 3 

CHARACTERS OF STRING IN A REGARDS- 
CHARACTER ADDRESS' ■ ,.'",-.. 
OF THE FIRST CHARACTER ",'...■ 

SAME FOR LAST 3 CHARACTERS 



WAS TABLE FULL ? 

YES* CAN'T FIT NEW ENTRY 



MASK FOR FIRST 3 CHARACTERS OF STRING 
MASK FOR LAST 3 CHARACTERS OF STRING 



SCH20' 


ZRO 





SCH52 


ZRO 





* 







starting location for scan of hast table : 
flag is -1 if no - 1 entry has been 

•encountered during' sch scan, the index 
of the first. such entry encountered 
othewise'' 



* FLOATING POINT ARITHMETIC 



FAD FLOATING ADD 



FAD 


POPD 


15600000B* 1* 1*0* 1 


SFADE 


STA 
CLA 


' . SS01 


FASE 


STX 


SS03 ■ > 




STA 


• FLAG 




STB 


ZM 




STE 






STX . 


ZE 




LDX 


SS03 : 




EAX*' 







CLA 






SKE 


. 0* 6 . 




BRU 


- FAN 




CLAB 






BRU 


' flad" 


FAN 


SKE 


SS01 




BRU 


FAX 




CLAB 






BRU 


FLAC 


FAX 


CXA 






LDB 


1*6 




STE 


*' 




XXA 






SUB 


ZE 




SKG 


= -1 . 




BRU 


FLAGM 




SKA 


=-1008 




LDA, 


= 39 




XMA 


SS01 




LDB. 


. ZM 




RSH* 


SS01 




XAB 




FLAC 


SKN 


FLAG 




BRU 


FAS 




MRG. 


= 7778 




SUB. 


\? 6 .- ' 




EOR 


= 7778 




XAB 






sue 


0* 6 




BRU. 


• FLAF 



FAS COPY A, E 

ADD 1,6 

XAB , ... 

ADC 0,6 • 
FLAF STE 
FLAOT OVT 

BRU FLAGS 

NOD 38 

SKA .=-1 

BRU FLANZ ' : 

CLX 
FLANZ XX A' 

SKG =-257 

FLAOF BRR FLAOA SET OVERFLOW DEVIOUSLY 

FLAOK XXA 
FLAX OVT 

BRU FLOF ' '■•., ,: 

FLAX1 ' LDE 

LDX SS03 * ^ 

BRU XPOP : ' 

FLAOA DATA 10000000B+FLAOK- 1 ' .■ 
FLAGM CNA ' ■' ';■ 

SKA =-100B 

LDA =39. '' 

LDX 0,6 ' 

/XXA. ■ 

rsh 0,2 ■.:■.. .:'.■■ 

COPY , 8, E ' '.','..,'■. 

FLAD SKN , FLAG ' '. 

BRU ' FLSS 

XMA SS01 ' ■ .... ' 

xab ; 

XMA ZM -.-■■■ ■ ■ 

SUB ! ZM .' 

XAB '■'■■'■ ' 

SUC SS01 ' 

BRU FLAF 
FLSS. XAB . . 

' -ADD ZM ' . '.' '■'.-■■ ■■' 

XAB , ' .'.'■■..-- 

ADC , SS01 . , - 

BRU FLAF ■ ■ . s - 

FLAOS ,RSH ; ' 1 ■ 5 , ' ■■■,■■ 

EOR =40000000B ... 

BRX FLAX 

XXA -.-....' 

SKG =255 

BRU FLAOK 

BRR , FLAOA SET OVERFLOW DEVIOUSLY 

FLOF BRX *+2 

BRU FLOJ .■■'.. 

CLEAR .■■■■■ 

LDX SS03 . 

BRU XPOP 



FLO J 


FOR 


=40000000B 






RSH ... 


39 






EOR 


=400000008. 




\ 


EA'X 


255 






BRR 


FLOJI 




FLOJ1 


ZRO 


FLAX 1-1,1 




*■ FSB 


FLOATING SUBTRACT 




FSB ' 


POPD ■ 


15500000B, 1,1,0, 


1 


SFSBE 


S.TA 


SS01 






' L DA 


= -1 






BRU 


FASE 




* FN A 


FLOATING 


CNA CBRS 21) 




SFNA 


L DX 


SS.,03 






BRM 


FNAS ' ' 






BRU 


XP'OP 




FN AS 


ZRO 








STX 


FNASX ' 






SKB 


. =-1000B ." 






BRU 


FLNA 






CNA 








SKE 


= 






SKA 


=177777778 




~ 


BRR 
STE 


FNAS 






SKE 


=40000000B 






BRU • 


FLCOM 






RCY 


1 






BRX' 


FLCA 




FLCOM 


NOD. 


A 




FLCA 


XXA 








SKG 


= 255 




■ ■ - 


SKG 


= -257 






BRR 


FNAOFL 






BRU 


FLNB1 


■• 


FNAOFL 


ZRO 


FNA0F2-1, 1 




FNA0F2 


XXA 








EOR 


=400000008 • 






RSH 


39 






EOR 


= 4000.0000B 






BRX 


*+3 






EAX 


255 






BRU 


FLNB 






CLEAR 


■ , 






BRU 


FLNB 




FLNB1 


XXA ' 
RO V. 






FLNB 


LDE 






FLMX 


LDX 


FNASX 






BRR 


FNAS 




FLNA 


STE 






-_. 


XAB 
CNA 
XAB 








EOR 


= - 1 







BRU 


FLNB 




* ISC 


INTERNAL TO STRING 


CONVERSION 


ISCS 


. NOP'-- - 


1000B 




ISC 


POPD . 


14000000B* 


1 * 1*0* 1 


SI SCI 


ST A 


SS01 . 






LDA 


ISC2 






BRU 


SCI 




* SIC 


STRING 


TO INTERNAL 


CONVERSION 


SIC2 


NOP 


100 IB 




SIC 


POPD 


14100000B* 


1* 1*0* 1 


ssiei 


ST A 


SS01 






LDA 


SIC2 


.' " ' "i. 


SCI 


STA 


BSX 


R 




STB 


SS02, 






STX 


SS03 






EAX* 





\ . 




CXA 








ETR 


ADMSK 






STA 


UBE 






BRU 


BSE 




* FMP 


FLOATING MULTIPLY 




FMP 


POPD 


15400000B* 


1*1*0*1 


SFMPE 


STX 


SS03 


,\ 




STA 


SS01 




, 


STE 








STX 


. ZE 






BAC 








LDX 


SS03 






EAX* 


■ 






LRSH 


2 






, M UL ' 


0* 6 






STA 


ZM 






LDA 


b6 






CXB 








COPY 


AX* A* E 






XXA 








ADM 


ZE 






COPY 


XA*BX*B 






LRSH 


2 






MUL 


SS01 






ADD ' 


ZM 






MUL 


= 2 






STB 


ZM 






XMA 


SS01 






MUL 


05 6 






XAB 








ADD 


ZM . 






XAB 








ADC 


SS0.1 






LDX 


ZE ' 






SKA 


=3777 7 777B 




. ■ 


BRU 


FLEND 






SKB 


= - 1000B . 




■ 


BRU 


'. FLEND 





SK.E =400000008 



BRU . 


FLND2 • 




RCY 


1 




BRX 


FL EN D ■ 




FLEND NOD ; 


4 




ROV 






' XXA ■ 






SK G , 


= 2 55 




SK.G 


= -257 




BRR 


FLAOA 




XXA 






LI1E 






FLND2 LDX 


SS03 




BRU 


XPOP . , 




* FDV FLOATI 


NG DIVIDE 




FDV POPD 


.15300000B, 1 


> 1*0 


SFDVE STX 


SS03 ' 




STA 


SS01 




STE 






"■STX . 


ZE 




LDX 


SS03 




EAX* 


. " ■ . 




RSH 


2 ' '.. , 




D.IV 


0* 6 




■ OVT 






BRU 


FDVO 




STA' ' 


ZM 




BAG 






RSH 


1 ; 




STA 


SS0-I 




LDB 


. ' 1 * -6 




CXA 






STE ., 






XX A 






CNA - 






' ADD ; 


= 2 




ADM 


ZE 




BAG 






RCY 


"■ 2 ., 




CNA 






M UL 


ZM 




: . ADD 


SS01 




DIV 


0* 6 




M UL 


= 2 




ADD 


.. ZM 




LDX 


ZE 




SKA 


= -1 ■ 




. BRU ■ 


FL EN D 




BRU 


FLND2 




FDVO. LDA 


SS01 




EQR 


0* 6 




BRU 


FLO J 




* STORAGE 







ZK 


ZRO* 




ZM ■' 


ZRO 




FLAG 


ZRO 




FNASX. 


ZRO 




# PR IN' 


F UNSIGNED INTEGER 


SOUTNUM STA 


0UTN02 




STB 


0.UTN03 




STX 


0UTN0 5 




CBA 






SK-6 


= 1 l '' 




BRU 


' TRAP . 




CLA 




0UTND6 


STA 


OUTN0.4 • 




. LDA > 


QUTNQ2 


QUTN0 7 


STA 


OUTNOl 




LRSH. 


23 ■.'■■;. 




D I V / 


• ' 0UTN03 




ske' 


0UTN0 4 




BRU 


Q0TNG7 




CBA 


1 




ADD ' 


= 208.' 




scio 


OUTN05 


1 


LDA 


OUTNOl 




SK E 


0UTNQ2 




BRU ■ 


0UTN0 6 




LDB 


0.UTN03 




LDX 


0UTN0 5 


*.Jj 


BRU . 


EPOPX 


* DEMAND SIGNED INTEGER 


SGETNUM SIX 


GETNOl - 




■ BAG 






STA 


GETN02 




STB 


GETN03 




STB 


GETN0 7; 




LDA 


= -1 




STA 


GETN08 




SCIO 


GETNOl 




SKE 


• =1.3B 




BRU 


*+2 




BRU 


GETN0 6 




SKE 


= 15B' 




BRU 


GETN0 6-M 




LDA 


= -1 




STA 


GETN0 7 


GETN0 6 


SCIO 


GETNOl 




SKN 


GETN08 




BRU 


-.# + 4 




SKG 


• =0 




BRU 


• GETN06 ■■ 




STA . 


GETN08 





SUB 


= 2@B 




SKG 


■ ■ =r 1 


-. ' 


BRU 


GETN0 4 




SKG 


GETNG2 




BRU 


GETN0 5 


GETN04 


ADD 
CAB 


=20B 




LDA 


GETN03 




SKN 


GETN07 




BRU 


EPOPX 


, 


CNA s 






BRU 


EPOPX, 


GETNQ5 


SKE 


GETN02 




BRU 


*+2 . 




BRU , 


GETN0.4 




XiMA 


■ GETN03. 




MUL 


■ GETN02 




LSH 


.23 




ADM 


GETN03 




BRU 


GETN0 6 



FIX AND FLOAT 



SEP IX 


SKA 


X4 






BRM 


FN AS 






SK.D 


= 23 






BRU 


FIXBIG. , 






COPY 


B* e". 






RSH 


. 0* 2 • 




FIX END 


SKN 


SS01 






BRU 


FENDl 






CNA ■ 






FENDl 


LDX ' ., 


SS03 






BRU • 


XPOP 




FIXBIG 


COPY 


B*E ' ■ 






LSH 


0* 2 






E.TR 


XX 






BRU 


FIX END 




SFFLT 


CLB 








SK E 


= 






BRU 


*+2 . ' s 






BRU *+4 


CHANGED 4/8/69 


T.ENGLAND 




LDX 


= 23 ■ 






NOD 


48 






LDE 








LDX 


SS03 


^ 




BRU 


XPOP 






END 







